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APPENDIX 

Copyright 2001 Unisys Corporation 

15 DEFINE VARIABLE "bcv_groupid" 
TYPE STRING RETAINED 
DEFAULT "" 
END 

20 DEFINE VARIABLE "cmd" 
TYPE STRING 
DEFAULT "" 
END 

25 DEFINE VARIABLE "Command_Lock" 
TYPE INTEGER RETAINED 
DEFAULT 0 
END 

30 DEFINE VARIABLE "PAUSEIO_Lock" 

/* When PAUSEIO.Lock is set, nothing happens except PAUSEIO stuff! / 
TYPE INTEGER RETAINED 
DEFAULT 0 
END 

" ^Zl A ^!2^^ panerntoonea— o„ 

/* a particular set of commands. 
TYPE STRING RETAINED 
40 DEFAULT "" 
END 

DEFINE VARIABLE "lgnore_CmdPrompt" 
TYPE INTEGER RETAINED 
45 DEFAULT 0 
END 

ncciMP VARIABLE GROUP "Routine_Queue" 

^L^^^u^^m possible for logging or any time we are not / 
r command is performed such as wth logg-ng. / 

TYPE STRING RETAINED 
DEFAULT "" 
END 

^^fS^SS-S^ except RC Start ^ INSTANT SPUT. • 
TYPE STRING RETAINED 
DEFAULT "" 
END 



50 
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60 



DFFINE VARIABLE GROUP "lmmediate_Queue" 
/Mmmediate queue is for a.l RC Start commands only (see RC.Start 1). / 
TYPE STRING RETAINED 
DEFAULT "" 
65 END 

'or INSTANT SPUT CO—. V 

TYPE STRING RETAINED 
70 DEFAULT "" 
END 

DEFINE VARIABLE GROUP "GroupNode" 
TYPE STRING RETAINED 
75 DEFAULT 
END 

DEFINE VARIABLE "IX_pass" 
TYPE STRING RETAINED 
80 DEFAULT "amsans pausernd DONE: 
END 

DEFINE VARIABLE "IX_stop_diskio" 
TYPE STRING RETAINED 
85 DEFAULT "pauseio" 
END 

DEFINE VARIABLE GROUP "LocEstSent" 
TYPE STRING RETAINED 
90 DEFAULT "" 
END 

DEFINE VARIABLE GROUP "LocSplitSent" 
TYPE STRING RETAINED 
95 DEFAULT "" 
END 

DEFINE VARIABLE GROUP "LocVerifyEst" 
TYPE STRING RETAINED 
100 DEFAULT 
END 

DEFINE VARIABLE "LogName" 
TYPE STRING RETAINED 
105 DEFAULT "RemoteCopy" 
END 
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DEFINE VARIABLE "node" 
TYPE STRING RETAINED 
110 DEFAULT 
END 

DEFINE VARIABLE GROUP "RC_ln_Progress" 
TYPE STRING RETAINED 
115 DEFAULT "" 
END 

DEFINE VARIABLE GROUP "RDFSplitSent" 
TYPE STRING RETAINED 
120 DEFAULT 
END 

DEFINE VARIABLE GROUP "RDFJn.Progress" 
TYPE STRING RETAINED 
125 DEFAULT 
END 

DEFINE VARIABLE GROUP "RemEstSent" 
TYPE STRING RETAINED 
130 DEFAULT 
END 

DEFINE VARIABLE GROUP "RemSplitSent" 
TYPE STRING RETAINED 
135 DEFAULT "" 
END 

DEFINE VARIABLE GROUP "RemVerifySplit" 
TYPE STRING RETAINED 
140 DEFAULT "" 
END 

DEFINE VARIABLE "symmjiost" 
TYPE STRING RETAINED 
145 DEFAULT "symm_nt" 
END 

DEFINE VARIABLE "x" 
TYPE STRING 
150 DEFAULT "" 
END 

DEFINE VARIABLE "y" 
TYPE STRING 
155 DEFAULT 

3 
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END 

/* Patterns for group "Activate_DB" */ 

160 BY <some means> " 

TYPE aVy-SENDER OTHER VARIABLE-LENGTH 

PRIORITY 128 
165 TOKEN KEYWORD 1 "MI001: 

TOKEN FIXED 2 "SP-AMS" 

TOKEN FIXED 3 "DATABASE- 
TOKEN FIXED 5 "ACTIVATED" 

CREATE GroupNode:"GROUP1" 
170 CREATE GroupNode:"GROUP2" 

CREATE GroupNode:"GROUP3" 

"T^PE=LG^LASS=S^ 
EXT=\_MESSAGE\" 

175 END 

/* Patterns for group "CmdPrompt" */ 

D S?~or externa, command, operate program or bat* «,e • 
TYPE ANY-SENDER OTHER 

TOKEN^EYWORD 1 "INTERNAL- 
TOKEN FIXED 3 "EXTERNAL" 
185 TOKEN FIXED 4 "COMMAND," 
185 TOKEN FIXED 5 "OPERABLE" 

CONSTRAINT _HOSTID = "\symm_host\ 
SET lgnore_CmdPrompt - 1 

EXT=\_IMAGE\" 
END 



180 



190 



195 



DEFINE "CmdPrompt" 2 f th mm NT s j gn als */ 
r The return of the command I prompt to the co y mma nds are then */ 

r the release of the lock sp0 |ock is free d only */ 

r sent to SYMCLI after setting the SPO commanoj-uo^ 



/* in this pattern. 
MESSAGE "\?1V\\>" 

ooo /* — 1 — * l 

TYPE ANY-SENDER OTHER 

PRIORITY 128 

TOKEN MASKED 1 "\?1VA\>' 

4 
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CONSTRAINT _HOSTID = "\symm_host\" 
IF lgnore_CmdPrompt 
RESET |gnore_CmdPrompt 

ELSE 
IF iPAUSEIO_Lock 



Patent Application 
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r ... then there is at least one oommanoui ™ j te tnem so */ 
r We use a character that can never shaft up ^ a ^^ |F0 me ian i8m . The */ 
r when we dump them all out we can thjs: 



215 */ 



220 



225 



230 



235 



240 



245 



250 



"' r Add an underscore character ,0 me end Che command, remove spaces and •/ 

r nii , rmd^lQueue:.ALLU-1V' 

IF \cmd[1,2]\=" " 
SET cmd = "\cmd " " 
ENDIF 

SET x="\cmd\_" 
DESTROY Flash_Queue:x 
ACTION COMMAND "\cmd\" 
ELSEIF ?lmmediate_Queue:_ALL > 0 
SET cmd = "\lmmediate_Queue:_ALl_ U -™ 

IF \cmd[1,2l\ = " " 
SET cmd = "\cmd""-1\" 

ENDIF 

SET x = "\cmd\_" 
DESTROY lmmediate_Queue:x 
ACTION COMMAND "\cmd\" 
ELSEIF ?Priority_Queue:_ALL>0 
SET cmd = "\Priority_Queue:_ALL U -™ 

IF \cmd[1,2]\ = " " 
SET cmd = "\cmd""-1\" 

ENDIF 

SET x = "\cmd\_" 
DESTROY Priority_Queue:x 
ACTION COMMAND "\cmd\ 
ELSEIF ?Routine_Queue:_ALL > 0 
SET cmd = "\Routine_Queue:_ALL U -™ 
IF \cmd[1,2]\ = " " 
SET cmd = "\cmd - " 
ENDIF 

SET x = "\cmd\_" 
DESTROY Routine_Queue:x 
ACTION COMMAND "\cmd\" 

ELSE . frpe tne lock (we free it only in this pattern and not */ 

^l^XZZZ^^o^ program or batch , 



270 
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RESET Command_Lock 
ENDIF 
ELSE , , 

255 RESET Command_Lock 

ENDIF 
ENDIF 

260 EXT=\JMAGE[1,2]\W>" 
END 

/* Patterns for group "ExecuteCmd" */ 
265 ^pSJSS control execution of commands from outside such as from the 

ssr;^^^ * e — d if free - ° r piace the oommand on 

C0MMAND: <command strin9> " 

^PE ANY^SENDER OTHER VARIABLE-LENGTH 

TOKEN^ASKED 1 T30\PROCESS" 
275 TOkIn KEYWORD 3 "COMMAND:" 
SET cmd = "\_MESSAGE" "4\" 
SET x = "\cmd\_" 
IF _TOKEN2 = "FLASH- 
CREATE Flash_Queue:x 
280 ELSEIF _TOKEN2 = "IMMEDIATE 
CREATE lmmediate_Queue:x 
ELSEIF _TOKEN2 = "PRIORITY- 
CREATE Priority_Queue:x 
ELSEIF _TOKEN2 = "ROUTINE" 
285 CREATE Routine_Queue:x 

f F N !command_Lock & !PAUSEIO_Lock 
IF ?Flash_Queue:_ALL > 0 
SET cmd = "\Flash_Queue:_ALL U 
290 IF \cmd[1,2]\= " 

SET cmd = "\cmd""-1\" 

ENDIF 

SET x = "\cmd\_" 
DESTROY Flash_Queue:x 
oq« SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ELSEIF ?lmmediate_Queue:_ALL>0 
SET cmd = "\lmmediate_Queue:_ALL U 
IF \cmd[1 ,2]\ = " 




1=3*5 
i H 
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300 SET cmd = ,, \cmd""-1\" 

ENDIF 

SET x="\cmd\_" 
DESTROY lmmediate_Queue:x 
SET Command_Lock = 1 
305 ACTION COMMAND "\cmd\" 

ELSEIF ?Priority_Queue:_ALL>0 
SET cmd = "\Priority_Queue:_ALL U 

IF \cmd[1,2]\=" 
SET cmd = "\cmd""-1V 

310 ENDIF 

SET x = "\cmd\J' 

DESTROY Priority_Queue:x 

SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
315 ELSEIF ?Routine_Queue:_ALL>0 

SET cmd = "\Routine_Queue:_ALL {J 

IF \cmd[1,2]\=" " 
SET cmd="\cmd""-1V 

ENDIF 

320 SET x = "\cmd\_" 

DESTROY Routine_Queue:x 

SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ENDIF 
325 ENDIF 

EXT=\_MESSAGE\" 
END 



d 330 



/* Patterns for group "RC_Start" */ 

D Se C ^ART 1 R E MOTE COPV DBKORDUF ■ <bcv jW*> <node>" 

,* „ 1 „*„2-*-3--*--4--* 5 o--/~ 

TYPE ANY-SENDER OTHER 
PRIORITY 128 

TOKEN KEYWORD 2 "REMOTE 
TOKEN FIXED 4 "DISKGROUP" 

340 TOKEN FIXED 3 "COPY" 
TOKEN FIXED 6 "NODE- 
CONSTRAINT _HOSTID = "\symm_host\ 
SET bcv_groupid = _TOKEN5 
SET node = _TOKEN7 

345 SET x = "\bcv_groupid\\node\ 

IF ?GroupNode:x _ |MAGE r t 

SET RC_ln_Progress:bcv_groupid - \_IMAUtu 

7 
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CREATE RemVerifySplit:bcv_groupid 
SET x = ,M \bcv_groupiclV" 

350 S =C 6 S S 9 Sv.groupi* -rdf -bcv -sp,i, verify- 

r S al/an SerVIore character to me end of the command and p,ace it on the queue: •/ 
CREATE lmmediate_Queue:x 
355 IF !Command_Lock&!PAUSEIO_Lock 
IF ?Flash_Queue:_ALL>0 
SET cmd = "\Flash_Queue:_ALL {_} " 1X 
IF \cmd[1,2]\ = " " 
SET cmd = "\cmd""-1V' 

360 ENDIF 

SET x = "\cmd\_" 

DESTROY Flash_Queue:x 

SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
365 ELSEIF ?lmmediate_Queue:_ALL > 0 

SET cmd = "\lmmediate_Queue:_ALL {J -1\ 

IF \cmd[1,2]\ = " " 
SET cmd = "\cmd " " 

ENDIF 

370 SET x = "\cmd\_" 

DESTROY lmmediate_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?Priority_Queue:_ALL > 0 
375 SET cmd = "\Priority_Queue:_ALL U " 1N 

IF \cmd[1,2]\ = " " 
SET cmd = "\cmd""-1\" 
ENDIF 

SET x = "\cmd\_" 
380 DESTROY Priority_Queue:x 

SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?Routine_Queue:_ALL > 0 
SET cmd = "\Routine_Queue:_ALL {_} -l\ 

385 IF \cmd[1,2]\ = " 

SET cmd = "\cmd""-1V 

ENDIF 

SET x = "\cmd\_" 
DESTROY Routine_Queue:x 
390 SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ENDIF 
ENDIF 
ELSE 

395 ACTION EVENT-REPORT \ 

8 
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1\|APPL=RemoteCopy|SEV-major|ALAKM.u - 

"A^RMQUAL=\bcv_grou P id\A_^AGE ( > _ 1 ^ D = T ^ Qte c failed for ■ \ 
2\|HELP=RemoteCopy/RC nval^ D skgroup^EXT Rernot py 

400 »diskgroup\bcv_groupid\onhost\JMAGE{} iv inva 

^TrVTo^EVENT-REPORT "TYPE=CO|CLASS=2200_Host|INSTANCE=\_IMAGE { } - 
^^Zi^^ X ^ FAILED \_IMAGE { } -3V 
ENDIF 

T=\_MESSAGE\" 
END 

410 r Patterns for group "RemNotSplit" */ 

DEFINE "RemNotSplit" 1 ^Hicknrou D >' are in the 'Split' state." 

MESSAGE "Not all dev.ces : m group <d.s kgroup> a».n t P 

H i* -1-*-2-*— 3— *4-*-5-- 6 °- ~ v 

% 415 TYPE ANY-SENDER OTHER 

% PRIORITY 128 

% TOKEN KEYWORD 1 "NOT" 

Hi TOKEN FIXED 3 "DEVICES" 

% TOKEN FIXED 4 "IN" 

% 420 TOKEN FIXED 5 "GROUP" 

m TOKEN FIXED 9 "THE" 

TOKEN FIXED 10 '"SPLIT"' 
% CONSTRAINT _HOSTID = ^(^SSL 

f " CONSTRAINT ?RemVerifySplit: TOKEN6 

% 42 5 SET bcv_groupid = "\_TOKEN6 {'} IN- 
ACTION EVENT-REPORT R , llN1 o TANC E=\bcv groupid\|Status=red|Message=\_ME 
«TYPE=AC|CLASS=\bcv_groupid\_R2|INSTANOt \ocv_y.u H i 



SSAGEY' 



430 



ACTION EVENT-REPORT IIN e TANCE=Nb cv groupid\|Status=red|Message=\_ME 

•TYPE=AC|CLASS=\bcv_groupid\_RL|INSTANUt \Dcv_y. h i 



SSAGEV 

MESSAGEV 
435 SET x=RC_ln_Progress:bcv_groupid 

.^O^s£| P 00*s,|,NS^ C0PY FA ' LED 

^ON^MMAND -CLEAN UP Vbcvjroupi* FAIL" 
440 ACTION EVENT-REPORT \ 

■type^class^nstance^a™^ 

mNotSplit|HELP=RemoteCopy/RC_RemNotSpl 1 t| \ 
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x \ v nT/\ 9\iTFXT=Remote Copy failed for diskgroup 
"ALARMQUAL=\bcv_groupid\.\x\.\_DT{}2\nbAi ^mowou H y 

445 \bcv_groupid\onhost\x\. Remote BCV not" \ 

" split!" 

EXT=\_MESSAGE\" 
450 END 

°S CntK devices in W^^^T ^ 

I* -1-*2-*-3-*-~ 4— *5-*-6~* 7 8-9-1U---n 

455 TYPE ANY-SENDER OTHER 
PRIORITY 128 

TOKEN KEYWORD 1 "NONE 

TOKEN FIXED 3 "THE" 

TOKEN FIXED 4 "DEVICES" 
460 TOKEN FIXED 6 "GROUP" 

TOKEN FIXED 11 '"SPLIT- 
TOKEN FIXED 12 "STATE." 

CONSTRAINT _HOSTID = "\symm host 

CONSTRAINT ?RemVerifySplit:_TOKEN7 
465 SET bcv_groupid = "\_TOKEN7 {'} 1\" 

•™cfS 

SSAGEV 

470 S"V«Ll«E*^ 

SSAGEV 

MESSAGEV 
475 SET x=RC_ln_Progress:bcv_groupid 

^^S^^INSTANCE^COMMAN^REMOTE COPY FAILED 

Xb A C CTION P COMMAND "CHECK VARS" „ 
ACTION COMMAND "CLEAN UP \bcv_groupid\ FAIL 
ACTION EVENT-REPORT \ 

..TYPE=AL|CLASS=Ho S t|.NSTANCE=\x\|APPL--RemoteCopy|SEV=maj 0 r^ 

mNotSplit|HELP=RemoteCopy/RC ^^phflN faj|ed for diskgroup 

"AI^RMQUAL=\bcv_groupid\.\x\A DT{}2\|TEXT Remoter P y 

\bcv_groupid\ on host \x\. Remote BCV not \ 
" split!" 

490 EXT=\_MESSAGE\" 
END 

10 
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/* Patterns for group "RemSplitConf 1 */ 

495 DEFINE "RemSplitConf 1 . ■ • ^« <c n \\t< ctatP " 

MESSAGE "All devices in group '<bcv jroupid>' are in the Split state. 

/* 2— *3-*--4~* 5 *-6-*7-*-8- —9 10- ' 

TYPE ANY-SENDER OTHER 

PRIORITY 128 
500 TOKEN KEYWORD 1 "ALL" 

TOKEN FIXED 3 "IN" 

TOKEN FIXED 4 "GROUP" 

TOKEN FIXED 8 "THE" 

CONSTRAINT _HOSTID = "\symm_host\ 
505 CONSTRAINT ?RemVerifySplit:_TOKEN5 

DESTROY RemVerifySplit:_TOKEN5 

SET bcv_groupid = "\_TOKEN5 {'} 1\" 

""cfS 

M 510 MESSAGEV' 
MESSAGEV 

■■W™ACplsS=S^ 

=\_ MESSAGEV 
* DESTROY RemVerifySplit:bcv_groupid 

~* CREATE LocVerifyEst:_TOKEN5 

=t CREATE LocVerifyEst:bcv_groupid 

520 ACTION EVENT-REPORT \ 
5 ., TY p E= CO|CLASS=2200_Ho S t|INSTANCE=\RC_ln_Progres S :bcv_grou P id\|COMMAND=RC 

^rooTsT^ 

^SwaHIk^IDS COMMAND "PROCESS PRIORITY COMMAND: symmir-g 
\bcv_groupid\ verify" 

..^LGPUSS=H0W 

530 T EXT=\_MESSAG E\" 
END 

I* Patterns for group "LocNotEst" */ 

D ME^AGE C -Nofa1 dLees in group '<disKgroup>' are in the 'Synchronized or Restored' 

state." * 7 *ft * q * 10 *11*— 12 — *~13- */ 

/* -1-*-2-* 3— *4- -5- 6 -7- o- -y iu 11 

TYPE ANY-SENDER OTHER 

11 
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535 



550 



Ui 560 



565 
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540 PRIORITY 128 

TOKEN KEYWORD 1 "NOT" 
TOKEN FIXED 3 "DEVICES- 
TOKEN FIXED 5 "GROUP- 
TOKEN FIXED 10 '"SYNCHRONIZED 
545 TOKEN FIXED 13 "STATE." 

CONSTRAINT _HOSTID = "\symm_host\ 
CONSTRAINT ?LocVerifyEst:_TOKEN6 
SET bcv_groupid = "\_TOKEN6 {} 1\" 

•ScfS 

ESSAGEV 
SSAGEV 

555 .ScfS 

MESSAGB" 
SET x = RC_ln_Progress:bcv_groupid 

.^OpU^ COPY FAILED 

\bcv groupidV 
ACTION COMMAND "CHECK VARS „ 
ACTION COMMAND "CLEAN UP \bcv_groupid\ FAIL 
ACTION EVENT-REPORT \ 

»TYPE=AL|CLASS=Host|.NSTANCE=Nx\|APPL=RemoteCo P y|SEV=m 

\bcv_groupid\ on host \x\. Local BCV not " \ 
570 "synchronized!" 

XT=\_MESSAGE\" 
END 



575 



580 



^MESSAG^ C '^ne of the devices in group '<di Sk grou P >' are in the 'Synchronized or 
Restored'^ 
TYPE ANY-SENDER OTHER 



PRIORITY 128 
TOKEN KEYWORD 1 "NONE" 
TOKEN FIXED 3 "THE" 
TOKEN FIXED 4 "DEVICES" 
585 TOKEN FIXED 11 '"SYNCHRONIZED 
TOKEN FIXED 13 "RESTORED"' 
CONSTRAINT _HOSTID = "\symm_host\ 

12 
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CONSTRAINT ?LocVerifyEst:_TOKEN7 
iETbcvgroupid = "\_TOKEN7 01\" 

ESSAGEV 

ACTION EVENT-REPORT llNl c TANC E=\bcv groupid\|Status=red|Message=\_ME 

"TYPE=AC|CLASS=\bcv_groupid\_LL|INSTANOb \Dcv_yi h i 

595 SSAGEV 

.^ACpUsi^upidLLB^ 

MESSAGEV 
SET x = RC_ln_Progress:bcv_groupid 

600 .^c^^ copY FA|LED 

*acto" P cSmmand -check vars- 

ACTION COMMAND "CLEAN UP \bcv_grou Pl d\ FAIL 
605 ACTION EVENT-REPORT \ 

.TYPE=AL,CLASS=Hos.,,NSTANCE^ 

™ ,ailed for d,sk9roup 

ry 610 \bcv_groupid\ on host \x\. Local BCV not " \ 
% "synchronized!" 

5 , T ^[i 3 ^^^TANCE=XLo g Name M A P PL=SPO|A P PLQUAL=LocNc,E S t2|TE 

h XT=\_MESSAGE\" 
m 615 END 

/* Patterns for group "LocEstConf ' */ 

DEFINE "LocEstConf" 1 nmuD id>' are in the 'Synchronized or Restored 1 

MESSAGE "All devices in group <bcv_groupid> are in y 

state." t _ *R* 7 *a-* 9 *10*— 11 — *-12-*/ 

2— *3-*-4- 5 6- ~° 



620 



TYPE ANY-SENDER OTHER 

o« TOKE^KEYWORD 2 "DEVICES" 
625 TOKEN FIXED 9 "SYNCHRONIZED" 
TOKEN FIXED 11 "RESTORED"' 
CONSTRAINT _HOSTID = :"*ymrj . host\ 
CONSTRAINT ?LocVeri^EsyOKEN5 
630 SET bcv_groupid = "\_TOKEN5 {} 1\ 
IF i?LocEstConf:bcv_groupid 
/* This path means we got here for the first t.me. / 
ACTION EVENT-REPORT \ 
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635 ■TYPE=CO|CUSS=2200.Host|,NSTANCE^RCJn.Progress:bcv.groupidV|COMMAND=RC 
LAST = Local_Establish_Confirmed_\b<:v_groupid\ 

•TY™C|C E ^S™ 
MESS AG E\" 

messagev 

■t?peSc|cus^ 

645 =\_messagev 

CREATE LocEstConf:bcv_groupid 

650 DESTROY LocEstConf:bcv_groupid 
SET PAUSEIO_Lock = 1 
DESTROY LocVerifyEst:_TOKEN5 
% DESTROY LocVerifyEst:bcv_groupid 

f£ SET y = "\RCJn_Progress:bcv_groupid\" 

1 ^ have to wait to issue the PAUSE.O since there is - RDF establish in progress. */ 

* r We just sent this message (image) in so it can , mate jaga.n. / 

n 660 ACTION COMMAND WAIT 1 SECONDS "\_IMAGE\ 
sH ENDIF 

H .^^^SSsTANCE^gNa^lAPP^SPO^PPLQUAL^cEs^onL^ 

B EXT=\_MESSAGE\" 

Cl 665 END 

/* Patterns for group "LocSplitSent" */ 

670 D MEsl AGE LocSp,i.S f t <bcv_g ro upid> <local split commands 

/* 1 * 2 * 3 */ 

TYPE ANY-SENDER OTHER var 

TO KEN^KEYWOR D 2 "LOCSPLITSENT" 
675 TOKEN MASKED 1 "\*30\CREATE" 

CREATE LocSplitSent:_TOKEN3 

SET x = '"\_TOKEN3r 

CREATE LocSplitSentx 

SET bcv groupid = "\_TOKEN3\" 
680 SET cmd = "\_MESSAGE" "4\" 

14 
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, This is a SPLIT command durin g - PAUSEiO c*a, pertod-maKe i. Fiash presence. 

Hra^core character ,o -he end tf the command and piace it on *e queue: •/ 
685 CREATE Flash_Queue:x not get here unless the */ 

in */ */ 
/* this situation. 
690 IF ?Flash_Queue:_ALL > 0 

SET cmd = "\Flash_Queue:_ALL U 

IF \cmd[1 ,2]\ = " 
SET cmd = "\cmd""-1\" 

ENDIF 

695 SET x = "\cmd\_" 

DESTROY Flash_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?lmmediate_Queue:_ALL > 0 _ 
SET cmd = "\lmmediate_Queue._ALLU ™ 

IF \cmd[1 ,2]\ = " 
SET cmd = "\cmd""-1\" 

ENDIF 

SET x = "\cmd\_" 
705 DESTROY lmmediate_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\ 
ELSEIF ?Priority_Queue:_ALL> 0 
SET cmd = "\Priority_Queue:_ALLU- lx 

710 IF \cmd[1,2]\ = " " 

SET cmd = "\cmd " " 

ENDIF 

SET x = "\cmd\_" 

DESTROY Priority_Queue:x 
715 SET Command_Lock = 1 

ACTION COMMAND "\cmd\ 
ELSEIF ?Routine_Queue:_ALL>0 

SET cmd = "\Routine_Queue:_ALL U -™ 

IF \cmd[1,2]\ = " " 
720 SET cmd = "\cmd - " 

ENDIF 

SET x = "\cmd\_" 
DESTROY Routine_Queue:x 
SET Command_Lock = 1 
725 ACTION COMMAND "\cmd\" 
ENDIF 

ACTION EVENT-REPORT „ N sTANCE=\bcv groupidV 

"TYPE=DE|CLASS=\bcv_groupid\_LL|INSTANUt 
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ACTION WAIT 1 SECONDS EVENT-REPORT \ 

730 , TYP E=AC|CLASS=Vbcv_g^^ 
MESSAGEV 

735 EXT=\_MESSAGE\" 
END 

/* Patterns for group "ResumelO" */ 

740 DEFINE "ResumelO" 1 y CL , c SUCC ESS VCLI call completed 

MESSAGE "symmir <bcv_groupid> CLI_C_bKLi i ^u_^_ 

successfully.V" ^ t .„ 5 „*-6~*~-7--~* 8 */ 

I* --1 — * 2 "5 " 

type any-sender other 
745 S^ord 1 -symmir; 

TOKEN FIXED 3 "CU_C_SPLIT 
TOKEN FIXED 4 "CLI_C_SUCCESS 
TOKEN FIXED 5 "VCLI" 
TOKEN FIXED 8 "SUCCESSFULLY^ 
CONSTRAINT _HOSTID = "\symrr , host\ 
CONSTRAINT ?LocSplitSent:_TOKEN2 

S SET \ = "\RC_ln_Progress:_TOKEN2\" 
SET cmd = "symmir -g \_TOKEN2\ -split venfy 

r^JTrn "derscore character .0 me end 0, *e command and place it on me queue: •/ 

K^tiPAUSEIO.LocK 
IF ?Flash_Queue:_ALL > 0 
SET cmd = "\Flash_Queue:_ALL {_} -™ 
IF \cmd[1,2]\=" " 
SET cmd = "\cmd - " 

770 ENDIF 

SET x="\cmd\_" 
DESTROY Flash_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
775 ELSEIF ?lmmediate_Queue:_ALL > 0 

SET cmd = "\lmmediate_Queue:_ALL {_} -1\ 

16 
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IF \cmd[1,2]\=" " 
SET cmd = "\cmd""-1\" 
ENDIF 

780 SET x = "\cmd\_" 

DESTROY lmmediate_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSE IF ?Priority_Queue:_ALL > 0 
785 SET cmd = "\Priority_Queue:_ALLU' lx 
IF \cmd[1,2]\=" " 
SET cmd = "\cmd""-1V 
ENDIF 

SET x = "\cmd\_" 
790 DESTROY Priority_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?Routine_Queue:_ALL > 0 
SET cmd = "\Routine_Queue:_ALL {J -™ 
795 IF \cmd[1 ,2]\ = " 

SET cmd = "\cmd " " 
ENDIF 

SET x="\cmd\_" 
DESTROY Routine_Queue:x 
800 SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ENDIF 
ENDIF 

XT=\_MESSAGE\" 
END 



810 



/* Patterns for group "LocSplitSent" */ 

DEFINE "LocSplitSent" 2 vFRIFYCLI C NONE SPLIT VNONE of the 

MESSAGE " S ymmir<bcv_groupid> CLI_C_VERIFYULi_u_iNw. _ 

mirrored pairs are in the 'Split' state.V" *„ 5 .„* 6 .*.7.*— 8--*-9-*10-*1 1*12-*--13— 

I* "i *__- — 2- — 3 

g]5 *— 14— */ 

TYPE ANY-SENDER OTHER 

S^ORD 3 "CLLC VERIFY" 
TOKEN FIXED 4 "CLI_C_NONE_SPLIT 
820 TOKEN FIXED 5 "VNONE" 
TOKEN FIXED 13 "'SPLIT- 
CONSTRAINT _HOSTID = "\symrr i host\ 
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S SET and = "symmir -g \_TOKEN2\ -split verify" 
830 ^aS^ore character to the end of the command and place i, on me queue: •/ 
CREATE Priority_Queue:x 
IF !Command_Lock & !PAUSEIO_Lock 
IF ?Flash_Queue:_ALL > 0 
SET cmd = "\Flash_Queue:_ALL {J -1\ 

835 IF \cmd[1,2]\= " 

SET cmd = "\cmd " " -1V 

ENDIF 

SET x = "\cmd\_" 

DESTROY Flash_Queue:x 
840 SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ELSEIF ?lmmediate_Queue:_ALL > 0 

SET cmd = "\lmmediate_Queue:_ALL {_} -i\ 

IF \cmd[1,2]\=" " 
845 SET cmd = "\cmd " " 

ENDIF 

SET x = "\cmd\_" 
DESTROY lmmediate_Queue:x 
SET Command_Lock = 1 
850 ACTION COMMAND "\cmd\" 

ELSEIF ?Priority_Queue:_ALL > 0 
SET cmd = "\Priority_Queue:_ALL {J-^ 
IF \cmd[1,2]\=" " 
SET cmd = "\cmd""-1\" 

855 ENDIF 

SET x= M \cmd\_" 

DESTROY Priority_Queue:x 

SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
860 ELSEIF ?Routine_Queue:_ALL > 0 

SET cmd = "\Routme_Queue:_ALL {_} " 1X 

IF \cmd[1,2]\=" " 
SET cmd = "\cmd""-1V 

ENDIF 

865 SET x = "\cmd\_" 

DESTROY Routine_Queue:x 

SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ENDIF 
870 ENDIF 
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EXT=\_MESSAGE\" 
END 

DEFINE "LocSplitSent" 3 wfrifYCLI C NOT ALL SPLIT Y'NOT all of 

MESSAGE "symmir <bcv_groupid> CLI_C_VEKii-Y uu.ojnu _ _ 

the mirrored pairs are in the 'Split' state.V" __*__ 5 „*_ 6 .. 7 _*. 8 .*„_9 *- 1 0--* 1 1 -* 1 2* 1 3-*- 

I* „1— * 2 * 3 4 

880 14— *— 15— */ 

TYPE ANY-SENDER OTHER 

TOKEN^ORD 3 "CLLC 
TOKEN FIXED 4 "CLI_C_NOT_ALL_SPUT 
885 TOKEN FIXED 5 TNOT" 

TOKEN FIXED 9 "MIRRORED" 
TOKEN FIXED 14 '"SPLIT" 
CONSTRAINT _HOSTID = "\symm_host\ 

S SET OTd = "symmir -g \_TOKEN2\ -split verify" 
895 r SET add = an^core character to me end of me command and place it on me queue: •/ 
CREATE Priority_Queue:x 
IF !Command_Lock&!PAUSEIO_Lock 
IF ?Flash_Queue:_ALL > 0 
900 SET cmd = "\Flash_Queue:_ALL{_}- 1x 
IF \cmd[1,2]\= " 
SET cmd = "\cmd""-1\" 
ENDIF 

SET x="\cmd\_" 
905 DESTROY Flash_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?lmmediate_Queue:_ALL > 0 
SET cmd = "\lmmediate_Queue:_ALL {_} -i\ 

910 IF \cmd[1,2]\= " 

SET cmd = "\cmd""-1\" 
ENDIF 

SET x = "\cmd\_" 
DESTROY lmmediate_Queue:x 
915 SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ELSEIF ?Priority_Queue:_ALL > 0 
SET cmd = "\Priority_Queue:_ALL {J 
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IF \cmd[1,2]\=" " 
920 SET cmd = "\cmd " " 

ENDIF 

SET x = "\cmd\_" 
DESTROY Priority_Queue:x 
SET Command_Lock = 1 
925 ACTION COMMAND "\cmd\" 

ELSEIF ?Routine_Queue:_ALL > 0 
SET cmd = "\Routine_Queue:_ALL {J -1\ 
IF \cmd[1,2]\ = " " 
SET cmd = "\cmd""-1\" 

930 ENDIF 

SET x="\cmd\_" 
DESTROY Routine_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
935 ENDIF 
* ENDIF 

1 .^S3^S^TANCE^ 9 Namey|APPU=SPO|APPLQUAL=LocSpli.SenL3|T 

m EXT=\_MESSAGE\" 
% 940 END 

% /* Patterns for group "LocSplitConf */ 

w - 

TYPE ANY-SENDER OTHER 
m PRIORITY 128 

S! TOKEN KEYWORD 1 "ALL 

% 950 TOKEN FIXED 2 "DEVICES" 

TOKEN FIXED 9 "'SPLIT- 
TOKEN FIXED 10 "STATE." 

CONSTRAINT _HOSTID = "\symm _host\ 

CONSTRAINT ?LocSplitSent:_TOKEN5 
955 DESTROY LocSplitSent:_TOKEN5 

SET bcv_groupid = "\_TOKEN5 {'} 1\" 

ACTION EVENT-REPORT \ 

..TYPE=CO|CLASS=2200 Host|INSTANCE=\RC_ln_Progress:bcv_groupid\|COMMAND=RC 
960 LAST = Local_Split_Confirmed_\bcv_groupid\" 

MESSAGEV 
MESSAGEV 
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=\_MESSAGE\" 
970 DESTROY LocSplitSent:bcv_groupid 
CREATE RDF_ln_Progress:_TOKEN5 

— Cause,, use WA,T ,o send a message 

975 TcTION WA™CONDS COMMAND "PROCESS PRIORITY COMMAND: symrdf -g 
\bcv_groupid\ -bcv -noecho -noprompt establish 
ACTION EVENT-REPORT \ 

"TYPE=CO|CLASS=2200_Host|INSTANCE=\RCJn_Progress:bcv_groupid\|COMMAND=RC 

980 LAST = RDF_Establish_Sent_\bcv_groupid\" 

ACTION EVENT-REPORT . ..„ 

«TYPE=DE|CLASS=\bcv_groupid\_RDFL|INSTANCE=\bcv_group.d\ 

ACTION WAIT 1 SECONDS EVENT-REPORT \ 
S 985 "TYPE=AC|CI^SS=\bcv_gro UP idLRDFL|INSTANCE=\bcv_groupid\|Statu S =green|Me S sage 
« =\_MESSAGE\" 

5 EXT=\_MESSAGE\" 
J 990 END 

f I* Patterns for group "RDFJnProg" */ 



995 



DEFINE "RDFJnProg" 1 fctabliSH CLI C SUCCESS V'CLI call 

MESSAGE "symrdf <bcv_groupid> CLI_C_ESTABLIbn uli_u_suoucoo 

completed successfully.V'" ^ „*„ 5 „*_6_* 7 * 8 */ 



/* -1— * 2 

TYPE ANY-SENDER OTHER 

1000 TOKEN^KEYWORD 3 "CLI_C_ESTABLISH" 

TOKEN FIXED 4 "CLI_C_SUCCESS" 

TOKEN FIXED 5 TCLI" 

TOKEN FIXED 8 "SUCCESSFULLY.V" 

CONSTRAINT _HOSTID = "\symm_host\" 
1005 CONSTRAINT ?RDF_ln_Progress:_TOKEN2 

SET bcv_groupid = "\_TOKEN2\" 

ACTION EVENT-REPORT \ 

"TYPE=CO|CLASS=2200 Host|.NSTANCE=\RCJn_Progress:_TOKEN2\|COMMAND=RCL 
1010 AST = RDF_Establish_ln_Progress_\bcv_groupidV 
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.^°ACrUS^U C OK^ 
,015 ESSAGET = ^ _ g ^ verify „ 

character ,o the end cf the command and place i. on me cueue: •/ 
CREATE Priority_Queue:x 
102 0 IF !Command_Lock & !PAUSEIO_Lock 
IF ?Flash_Queue:_ALL > 0 
SET and = "\Flash_Queue:_ALL {J -1\ 
IF \cmd[1,2]\=" " 
SET cmd = "\cmd""-1\" 

1025 ENDIF 

SET x = "\cmd\_" 

DESTROY Flash_Queue:x 

SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
1030 ELSEIF ?lmmediate_Queue:_ALL>0 
H SET cmd = "\lmmediate_Queue:_ALL {J -™ 

t IF \cmd[1 ,2]\ = " 

% SET cmd = "\cmd " " -1V 

ENDIF 

% 1035 SET x = "\cmd\_" 

DESTROY lmmediate_Queue:x 
1,' SET Command_Lock = 1 

yj ACTION COMMAND "\cmd\" 

1,. ELSEIF ?Priority_Queue:_ALL > 0 

W 1040 SET cmd = "\Priority_Queue:_ALL{_}-^ 
r; IF \cmd[1,2]\= " 

HI SET cmd = "\cmd " " 

Zl ENDIF 
W SET x = "\cmd\_" 

w 1045 DESTROY Priority_Queue:x 

SET Commandj-ock - 1 

ACTION COMMAND "\cmd\" 
ELSEIF ?Routine_Queue:_ALL> 0 

SET cmd = "\Routine_Queue:_ALL U -™ 

1050 IF\cmdt12l\ = 

SET cmd= \cmd -i\ 

ENDIF 

SET x = "\emd\_" 
DESTROY Routine_Queue:x 
1055 SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ENDIF 
ENDIF 
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EX T=\_MESSAGE\" 
END 

DEFINE "RDFJnProg" 2 

1065 MESSAGE \ NONE SYNCHRONIZED V'NONE of the 

"symrdf <bcv_groupid> CLI_C_VEKihY uli_o_in^ _ 

mirrored pairs are in the 'Synchronized \ ^ _. 6 _._ 7 _*„_ 8 ..„*.-9--*l0-*11*12-* 

/* „i-„* 2 * 3 4 

13 * */\ 

1070 "state.Y"' 

/*-14— */ 

TYPE ANY-SENDER OTHER 
PRIORITY 128 l . CDICV , 

,„ 75 ssi s^,:^^^^ 

TOKEN FIXED 5 "V'NONE" 
TOKEN FIXED 13 '"SYNCHRONIZED"' 
CONSTRAINT _HOSTID = ''\symm_host\ 
CONSTRAINT ?RDF_ln_Progress:_TOKEN2 
1080 SET bcv_groupid = "\_TOKEN2\" 

» 1085 f F Ss 0* «>™™ ds that use the WAIT clause), use WAIT to send a message 

I TtSn WA^TIeCONDS COMMAND "PROCESS PRIORITY COMMAND: symrdf - 9 

- ! \_TOKEN2\-bcv verify" 

•^GPUSSS 
EXT=\_MESSAGE\" 

END 

1095 DEFINE "RDFJnProg" 3 

MESSAGE \ QT AL| _ SYNCHRONIZED V'NOT all of 

"symrdf <bcv_groupid> CLI_C_VERii- y uui_ojn^ _ _ 
the mirrored pairs are in the 'Synchronized \ ^ *. 6 -*7-*-8-*— 9 — *-10-*1 1-*12*13-*- 
/*„1„.* 2 * 3 * 4 

1100 --14 */\ 

" state.V" 
/**— 15— */ 

TYPE ANY-SENDER OTHER 

1105 SST^lI^fll^CHRON^ 
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TOKEN FIXED 5 TNOT" 
TOKEN FIXED 14 "'SYNCHRONIZED'" 
CONSTRAINT _HOSTID = "^'"' n _host\- 
1110 CONSTRAINT ?RDF_ln_Progress:_TOKEN2 
SET bcv_groupid = "\_TOKEN2\" 

•■Se^ 

1115 ^g£Syg^^ 

poop's (i.e, commands that use the WAIT clause), use WAIT to send a message 
1 J^ZS?7^DS COMMAND "PROCESS PRIORITY COMMAND: symrdf -g 
1 1 20 \_TOKEN2\ -bcv verify" 

EXT=\_MESSAGE\" 
END 

1125 „ „ . 

DEFINE "RDFJnProg" 4 

MESSAGE \ FCTABLISH CLI C ALREADY IN_STATE VThe 
"SYMRDF <bcv_groupid> CU_C_ESTABUaiiou >_" L 

Device(s) is (are) already in the desired state or modeA 

! 1130 TYPE ANY-SENDER OTHER 

3 TOKEN^EYWORD 3 "CLI_C_ESTABLISH" 

TOKEN FIXED 4 "CLI_C_ALREADY_IN_STATE 
i TOKEN FIXED 9 "ALREADY" 

'= H35 TOKEN FIXED 13 "STATE" 
: CONSTRAINT _HOSTID = "^ymm.hostV 

CONSTRAINT ?RDF_ln_Progress:_TOKEN2 
* SET bcv_groupid = "\_TOKEN2\" 

loop's (i.e. commands that use the WAIT clause), use WAIT to send a message 
1 M5 TctON WA?T TsECONDS COMMAND "PROCESS PRIORITY COMMAND: symrdf -g 
\_TOKEN2\ -bcv verify" 

"tV C p™?gpS 

1150 EXT=\_MESSAGE\" 
END 

/* Patterns for group "RDF_Est" */ 
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1155 DEFINE "RDF Est" 1 . - the 'Synchronized' state." 

MESSAGE "All devices in the RDF group ^ 

r .-i.*— 2— *3-*-4-*-5-*~6--* 7 8- y- nu «' 

TYPE ANY-SENDER OTHER 

PRIORITY 128 
1160 TOKEN KEYWORD 1 "ALL" 

TOKEN FIXED 2 "DEVICES- 
TOKEN FIXED 5 "RDF" 

TOKEN FIXED 6 "GROUP" 

TOKEN FIXED 11 "'SYNCHRONIZED'" 

1 165 CONSTRAINT _HOSTID = '^V™™-*™* 

CONSTRAINT ?RDFJn_Progress: TOKEN? 

DESTROY RDF_ln_Progress:_TOKEN7 

SET bcv_groupid = "\_TOKEN7 0 1V 

ACTION EVENT-REPORT \ 
,17 ° . T YP E =CO|CLASS=2200.Hos.|,NSTANCE=\RCJn.Pro 9 ress:bcv.grou P i*|COMMAND=RC 

LAST = RDF_AII_Synchronized_\bcv_groupid\ 

-1175 =\_MESSAGE\" 

t =\_MESSAGE\" 

ACTION EVENT-REPORT p , llN|C1 TANCE=\bcv qroupid\|Status=green|Message=\_ 
* 1180 "TYPE=AC|CLASS=\bcv_groupid\_R2|INSTANCt-\DCV_gr 0 u H . , 

MESSAGEV 

i DESTROY RDF_ln_Progress:bcv_groupid 

1 CREATE RDFSplitSent:_TOKEN7 

(i°e F cSs SS. WA,T Cause,, use WAIT to send . m essage 
TctON Wa"TIkONDS COMMAND -PROCESS PRIORITY COMMAND: symrdf -8 
\bcv_ groupid\ -bcv -noprompt -noecho split" 
ACTION EVENT-REPORT \ 
U90 . T YPE=C01Cl A SS=2200.Host|INSTANCE=NRCJn.P ro g re ss-.b CT _groupidMCOMMAND=RC 

LAST = RDF_Split_Sent_\bcv_groupid\" 

„ 95 YcTlSS WWT 1 SECONDS EVENT-REPORT \ 

■TYPE=AC,CLASS=*cv.groupidV.RDF L |INSTA N CE=*cv.groupidMSta ta s=yelMMess a ge 

=\_MESSAGE\" 

noo 

T=\_MESSAGE\" 
END 
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1205 



1210 



1215 



1220 



1225 



1230 



1235 



1240 



1245 



1250 



r Patterns for group "RDPSplitSent" */ 

DEFINE "RDFSplitSenf 1 SPLIT CLI C SUCCESS VCLI call completed 

MESSAGE "symrdf <bcv_groupid> CLI_C_SPLi i 

successfully A"" # # .„ 5 ..*.6--*-~7-~* 8 */ 

/* „1 — * 2 — J 

TYPE ANY-SENDER OTHER 

TOKEN^ORD 3 "CLI_C SPLIT" 
TOKEN FIXED 4 "CLI_C_SUCCESS" 
TOKEN FIXED 5 "VCLI" 
TOKEN FIXED 8 "SUCCESSFULLYA 
CONSTRAINT _HOSTID = "\symrri hostY 
CONSTRAINT ?RDFSplitSent:_TOKEN2 
SET bcv.groupid = "\_TOKEN2\" 
ACTION EVENT-REPORT \ 

AST = RDF_SpUlJn_Progres8_\bcv jgnoupi* 
M |lr S ™d '= "symrdf -g \_TOKEN2V -bcv -failedover ver»y" 

r SET add aS^core character * me end o, me command and place ,< on «he queue-. •/ 

^Sn^PAUSE.O.LocK 
IF ?Flash_Queue:_ALL > 0 
SET cmd = "\Flash_Queue:_ALLU- 1 \ 
IF \cmd[1,2]\ = " " 
SET cmd = "\cmd " " 
ENDIF 

SET x="\cmd\_" 
DESTROY Flash_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?lmmediate_Queue:_ALL> 0 
SET cmd = "\lmmediate_Queue-._ALL U 
IF \cmd[1,2]\=" " 
SET cmd = "\cmd " " -1V 
ENDIF 

SET x = "\cmd\_" 
DESTROY lmmediate_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
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ELSEIF ?Priority_Queue:_ALL > 0 
SET cmd = "\Priority_Queue:_ALL {J " 1X 



IF \cmd[1,2]\=" " 
SET cmd = "\cmd""-1\" 

1255 ENDIF 

SET x = "\cmd\_" 

DESTROY Priority_Queue:x 

SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
i960 ELSEIF ?Routine_Queue:_ALL > 0 

SET cmd = "\Routine_Queue:_ALL {_} -1\ 

IF \cmd[1,2]\=" " 
SET cmd = "\cmd " " 
ENDIF 

1265 SET x = "\cmd\_" 

DESTROY Routine_Queue:x 

SET Command_Lock = 1 
, ACTION COMMAND "\cmd\" 

J ENDIF 

M270 SjpSSSSS ^STANC E ^cgNa m *PPL=SPO|APPLQUAL=RDFSpmSen.J| 

TEXT=\_M ESSAG E\" 
END 

1975 

w DEFINE "RDFSplitSenf 2 

MESSAGE \ vfrifY CLI C NONE FAILED_OVER V'NONE of the 

% " S ymrdf<bcv_groupid>CLl C VERIFY CLi.ujNu _ 

7! mirrored pairs are in the 'Failed Over \ # 5 _„* 6 .*. 7 -*-8--*--9--*10-*11*12-*-13- 
S 1280 2 *~" 3 

i *.i4-**/\ 

y "state.Y"' 
/*— 15— */ 

TYPE ANY-SENDER OTHER 

TOKEN FIXED 5 "V'NONE" 
TOKEN FIXED 13 '"FAILED" 

MESSAGEV 
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r For loops commands M use me WAIT clause), use WA,T ,o send a .essaae 
1300 TctON WA^TIkONDS COMMAND -PROCESS PRIORITY COMMAND: symrdf -g 
\ TOKEN2\ -bcv -failedover verify" 

■^ E °lgpuss=hTs°i^ 

1305 TEXT=\_MESSAGE\" 
END 

DEFINE "RDFSplitSent" 3 
MESSAGE \ cu c N0T ALL_FAILED_OVER VNOT all of 

"symrdf <bcv_groupid> CLI_C_v twr t _ 
the mirrored pairs are in the 'Failed Over \ _*__ 5 „.. 6 .* 7 .*. 8 .*... 9 --*.10-*1 1-*12*13-*-- 

/*„1~* 2 * 3 4 " 

<I4— M5--**/\ 
"state.Y"' 
nl c /* —16— */ 

TYPE ANY-SENDER OTHER 



1310 



PRIORITY 128 x/pRiFY" 

,_ n r- MMIklAT" 



* 1325 



f 1330 



1 1320 TOKEN FIXED 5 "VNOT" 
3 TOKEN FIXED 9 "MIRRORED" 

"* TOKEN FIXED 14 '"FAILED" 

TOKEN FIXED 15 "OVER"' 
CONSTRAINT _HOSTID = "\symm host\ 
CONSTRAINT ?RDFSplitSent:_TOKEN2 
SET bcv_groupid = "\_TOKEN2\" 

fpofloof (i e. commands that use the WAIT clause), use WAIT to send a message 
C0 ^^\nT^OHDS C0MMAND "PROCESS PRIORITY COMMAND: symrdf -g 
1335 \ TOKEN2N -bcv -failedover verify" 

T EXT=\_M ESS AGE\" 
END 

r Patterns for group "RDFSplitConf" */ 

DEFINE "RDFSplitConf 1 pnPnrnu _, <bcv qr0 up«d>' are in the 'Failed Over 1 state." 
MESSAGE "All devices in the RDF group < p^V| r ° 1 o.*--11---*-12--*--13-- */ 

^ * o *o *A * ^ *— R— / ~°~ u 1 



1340 



1345 



/* 2— *3-*-4-*-5-*~6 

TYPE ANY-SENDER OTHER 
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PRIORITY 128 
TOKEN KEYWORD 1 "ALU 
TOKEN FIXED 2 "DEVICES" 
13 50 TOKEN FIXED 5 "RDF" _ 
TOKEN FIXED 6 "GROUP" 
TOKEN FIXED 11 '"FAILED" 
TOKEN FIXED 12 "OVER"' 
CONSTRAINT -HOSTID = "\symm host\ 
135 5 CONSTRAINT ?RDFSplitSerrt-^OKEN7 
DESTROY RDFSplitSent:_TOKEN7 
SET bcv_groupid = "\_TOKEN7{'}1\' 
ACTION EVENT-REPORT \ 

. TY PE=CO|CUASS=2200.Hcs,|,NSTANC E = f CJn.P ro gress:b=v. S ro U ^CO M MAND=RC 
LAST = RDF_AII_Failed_Over_\bcv_groupid\ 

=\ MESSAGEV 
=\ MESSAGEV 

% ACTION EVENT-REPORT R9llNiqTANC E=\bcv groupid\|Status=yellow|Message=\_ 

S « T YPE=AC|CLASS=\bcv_groupid\_R2|INSTANUt \dcv_ 9 iu H i 

H70 MESSAGEV . . 

«' DESTROY RDFSplitSent:bcv_groupid 

yj CREATE LocEstSent:_TOKEN7 

0 Sps^f — ds S ^ WAIT Cause), use WA,T .0 send a .essage 

TcTON WA^TIkONDS COMMAND "PROCESS PRIORITY COMMAND: symmir -g 
\bcv groupid\ -noprompt establish" 
ACTION EVENT-REPORT \ 

.■TYPE=CO,CLASS^^ 
LAST = LocaLBCV_Establish_Sent_\bcv_group.d\ 

ACTION EVENT-REPORT llN |c T ANCE=\bcv groupidV 

"TYPE=DEICLASS=\bcv groupid\_LL|INSTANUt: Duv_y. v 
YcTlON WATT 1 SECONDS EVENT-REPORT \ 

1385 -TYPI^CLAS^^ 

MESSAGEV 

1390 TEXT=\_MESSAGE\" 
END 

/* Patterns for group "LocEstSent" 7 



U 1375 



1380 
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1395 



1400 



1405 



1410 



1 1415 



1420 



m 1425 



1430 



1435 



1440 



DEFINE "LocEstSenf 1 ESTABLISH CLI C SUCCESS V'CLI call 

MESSAGE "symmir <bcv_groupid> CLI_C_ES1 Atsusn _ _ 

completed successfullyA"" t *__5_*-6-*— 7— -* 8 */ 

/* „1— * 2 * 3 * 

TYPE ANY-SENDER OTHER 
PRIORITY 128 PPT . DI IC u" 

TOKEN KEYWORD 3 "CLI C .ESTABLISH 
TOKEN FIXED 4 "CLI_C_SUCCESS 
TOKEN FIXED5TCLI" 
TOKEN FIXED 8 "SUCCESSFULLYA 
CONSTRAINT _HOSTID = "\symm _host\ 
CONSTRAINT ?LocEstSent:_TOKEN2 
SET bcv_groupid = "\_TOKEN2\" 
ACTION EVENT-REPORT \ 

. T y PE -CO,CUSS=2200 Hos,|,NSTANCE^CJn.Prog re ss:.TOKEN2 V O M MAND=RCL 
S SET B cmd = "symmir -g \TOKEN2\ verify" 

S = ,S» character to me end of «he command and piace i. on ft. queue: •/ 

PR FATE Priority Queue.x 
IF 1 Command_Lock & !PAUSEIO_Lock 
IF ?Flash_Queue:_ALL > 0 
SET cmd = "\Flash_Queue._ALL U 
IF \cmd[1,2]\=" " 
SET cmd = "\cmd " -1V 
ENDIF 

SET x="\cmd\_" 
DESTROY Flash_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?lmmediate_Queue:_ALL> 0 
SET cmd = "\lmmediate_Queue:_ALL U -™ 

IF \cmd[1,2]\ = " 
SET cmd = "\cmd""-1V 

ENDIF 

SET x="\cmd\_" 
DESTROY lmmediate_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?Priority_Queue:_ALL > 0 
SET cmd = "\Priority_Queue:_ALL U 

IF \cmd[1 ,2]\ = " 
SET cmd = "\cmd""-1\" 

30 



ENDIF 

SET x = "\cmd\_" 
1445 DESTROY Priority_Queue:x 
SET CommandJ-ock = 1 
ACTION COMMAND "\cmd\" 
ELSEIF ?Routine_Queue:_ALL > 0 
SET cmd = "\Routine_Queue:_ALL {J -i\ 

1450 IF \cmd[1 ,2]\ = " 

1 SET cmd = "\crnd""-1\" 

ENDIF 

SET x = "\cmd\_" 
DESTROY Routine_Queue:x 
14S5 SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ENDIF 
ENDIF 

EXT=\_MESSAGE\" 
END 



1460 



J 1465 



'MESSAGE 0 W aTdevices in group '<bcv_groupid>' are in the 'Synchronized or Restored' 

TYPE ANY-SENDER OTHER 
PRIORITY 128 
t 1470 TOKEN KEYWORD 1 "NOT 

TOKEN FIXED 2 "ALL" 
■* TOKEN FIXED 3 "DEVICES" 

5 TOKEN FIXED 10 "SYNCHRONIZED" 

* TOKEN FIXED 12 "RESTORED"' 

*" 1475 CONSTRAINT _HOSTID = ^ymmjjostx 
CONSTRAINT ?LocEstSent:_TOKEN6 
SET bcv groupid = "\_TOKEN6 {'} 1\" 

ACTION EVENT-REPORT i|MC T ANCE=Nbcv groupidV 

"TYPE=DE|CIJVSS=\bcv_groupid\_LL|IN^A^^t: rccv_ y y 

1480 ACTION WAIT 1 SECONDS EVENT-REPORT \ 
■^AqCLASS^cv groupi^ 

fpoS e commands that use the WAIT clause), use WAIT to send a message 
1485 TcTlON ^TIeCONDS COMMAND "PROCESS PRIORITY COMMAND: symm, -g 
\bcv_groupid\ verify" 

.^L N GPUS T S=H« 

1490 EXT=\_MESSAGE\" 
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END 

DEFINE "LocEstSent" 3 «rni mid>' are in the 'Synchronized or 

MESSAGE "None of the devices in group <bcv_group.d> are 

1495 Restore* S ^ e /^_ A _. 5 *„Q..* 7 *- 8 -*9-*10-*-~--1 1 *12*-13--*-14- V 

TYPE ANY-SENDER OTHER 
PRIORITY 128 

TOKEN KEYWORD 1 "NONE" 
1500 TOKEN FIXED 3 "THE" 

TOKEN FIXED 4 "DEVICES" 

TOKEN FIXED 6 "GROUP" 

TOKEN FIXED 11 "SYNCHRONIZED" 

TOKEN FIXED 14 "STATE." 
15 05 CONSTRAINT _HOSTID = "\symm Jiost\ 

CONSTRAINT ?LocEstSent:_TOKEN7 

SET bcv groupid = "\_TOKEN7 {'} IN- 
ACTION EVENT-REPORT , 1N QTANCE=\bcv groupidV 
"TYPE=DEICLASS=\bcv groupid\_LL|INSTANUt : \ocv_yiu H 

1510 Yct70N WAIT 1 SECONDS EVENT-REPORT \ 

WE=AC|CLASS=\bcv.groupidUL|.NSTANCE=Vbcv_grou P idV,Status=g 

' fFoMoopMi e. commands that use the WAIT clause), use WAIT to send a message 

1515 WA^'Sr^DS COMMAND "PROCESS PRIORITY COMMAND: symmir -g 

\bcv_groupid\ verify" 

1 .^S 3 ^^^TANCE^gNa^A P PL=SPO|APPLQUAL=Loc E s t S e ^ 

I 1520 EXT=\_MESSAGE\" 

■ END 

* /* Patterns for group "LocalEstConf" */ 

1525 D MEs!aGE *S I group '<bcv_groupid>' are in me 'Synchronized or Restored' 

T" .V-2--3---4-*—- 5 6--T---8 9--M0--11---12- V 

TYPE ANY-SENDER OTHER 

i«0 PRIORITY 128 

TOKEN KEYWORD 1 "ALL- 
TOKEN FIXED 2 "DEVICES- 
TOKEN FIXED 4 "GROUP- 
TOKEN FIXED 9 "SYNCHRONIZED" 

1535 TOKEN FIXED 11 "RESTORED"' 

1535 CONSTRAINT _HOSTID = "^-^ 
CONSTRAINT ?LocEstSent:_TOKEN5 
DESTROY LocEstSent:_TOKEN5 
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SET bw_groupid = VrOKEN5{ , >1\" 
1540 ACTION EVENT-REPORT \ 

»TYPE=CO|CLASS=2200 Host|INSTANCE=\RC_ln_Progress:bcv_gr 0 upid\|COMMAND=RC 
LAST = LoraLBCVJ\ll_Synchronized_\bcv_groupid\" 

•^AcfcUS^groupi^ 
MESSAGEV 

MESSAGEV 

=\_MESSAGE\" 
DESTROY LocEstSent:bcv_groupid 
CREATE RemEstSent:_TOKEN5 

r. 15 " AX"™— Si WA,T cause,, use WAIT .o send a m essage 

1 TcTION WAaTlKONDS COMMAND "PROCESS PRIORITY COMMAND: symmir -g 

Hi \bcv_groupi* -bcv -rdf -noprompt establish" 

W1560 ACTION EVENT-REPORT \ 

I . TrPE =CO|CLASS=2 2 (XLHos t |INSTANCE=«CJ^P ro g re ss:bcv.g ro upid M COMMAND=RC 

» LAST = Remote_BCV_Establish_Sent_*cv_groupid\ 

l 1565 .SE^^g- P idV.RL,.NSTANCE ? cv_groupidV 
K ACTION WAIT 1 SECONDS EVENT-REPORT \ 

ft .. T YPE=AC|CLASS=\bcv_grou P id^RL|.NSTANCE=\bc^groupid\|Status=green|Message=\„ 
- MESSAGEV 

TEXT=\_MESSAGEV 
END 



CL 1570 



1575 /* Patterns for group "Rem_BCV_Est" */ 

DEFINE "Rem_BCV_Est" 1 FSTABLISH CLI C SUCCESS VCLI call 

MESSAGE "symmir <bcv_groupid> CLI_C_Eb I ABLisn ui_i_o_o 

completed successfullyA"" ^ t ^ 7 , 8 */ 

1580 /* -1— * 2 *—- — 3 

TYPE ANY-SENDER OTHER 

TOKEN^EYWORD 3 "CLI_C_ESTABLISH" 
TOKEN FIXED 4 "CLI_C_SUCCESS" 
1585 TOKEN FIXED 5 "VCLI" 

TOKEN FIXED 8 "SUCCESSFULLYA"" 
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CONSTRAINT _HOSTID = "\symm_hostV 

CONSTRAINT ?RemEstSent:_TOKEN2 

SET bcv.groupid = "\_TOKEN2\" 
1590 ACTION EVENT-REPORT \ 

.TYPE=CO|CLASS=2200 Host|INSTANCE=\RC_ln_Progress:_TOKEN2\|COMMAND=RCL 
AST = Remote_BCV_Establish_ln_Progress_" \ 

S SET B cmd = "symmir -g \_TOKEN2\ -bcv -rdf verify" 
1600 S an^core character to me end of the command and place it on me queue: •/ 
CREATE Priority_Queue:x 
IF !Command_Lock & !PAUSEIO_Lock 
IF ?Flash_Queue:_ALL > 0 
1605 SET cmd = "\Flash_Queue:_ALL (J -™ 
IF \cmd[1,2]\=" " 
SET cmd = "\cmd""-1\" 
ENDIF 

SET x = "\cmd\_" 
; 1610 DESTROY Flash_Queue:x 
I SET Command_Lock - 1 

J ACTION COMMAND "\cmd\" 

ELSEIF ?lmmediate_Queue:_ALL>0 
i SET cmd = "\lmmediate_Queue:_AI_L {J-'W 

. ! 1615 IF \cmd[1 ,2]\ = " 

SET cmd = "\cmd""-1\" 

i ENDIF 
* SET x = "\cmd\_" 

fc DESTROY lmmediate_Queue:x 

1620 SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ELSEIF ?Priority_Queue:_ALL > 0 
SET cmd = "\Priority_Queue:_ALL {J -i\ 
IF \cmd[1,2]\= " 
1625 SET cmd = "\cmd " " -1\" 

ENDIF 

SET x = "\cmd\_" 
DESTROY Priority_Queue:x 
SET Command_Lock = 1 
1630 ACTION COMMAND "\cmd\" 

ELSEIF ?Routine_Queue:_ALL > 0 
SET cmd = "\Routine_Queue:_ALL U 
IF \cmd[1,2]\=" " 
SET cmd = "\cmd l, "-1\" 
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1635 ENDIF 

SET x = "\cmd\_" 
DESTROY Routine_Queue:x 
SET Command_Lock = 1 
ACTION COMMAND "\cmd\" 

1640 ENDIF 
ENDIF 

1|TEXT=\_MESSAGE\" 
1645 END 

DEFINE "Rem_BCV_Est" 2 

MESSAGE \ c NQNE SYNCHRONIZED V'NONE of the 

"symmir <bcv_groupid> CLI_CVERihY uli_u_.n^ _ 

1650 mirrored pairs are in the 'Synchronized \ ^ * 6 .*. 7 .*...8--*-9-*10-*11*12-* 

/* „<|.„* 2 * 3 4 

13 **/\ 

"state.V" 
5 /*-14-*/ 
YA 1655 TYPE ANY-SENDER OTHER 
PRIORITY 128 



thkfn KEYWORD 3 "CLI C VERIFY" 
TOkIn S rCU C_NONE_SYNCHRONIZED" 
TOKEN FIXED 5 "V'NONE" 
1660 TOKEN FIXED 13 '"SYNCHRONIZED"' 
CONSTRAINT _HOSTID = "Nsymtj L.host\ 
CONSTRAINT ?RemEstSent:_TOKEN2 

f-fof Lps (l.e. commands M use the WAIT Cause,, use WA,T to send a message 
TctON WA^TIkONDS COMMAND "PROCESS PRIORITY COMMAND: symmir -g 
\_TOKEN2\ -bcv -rdf verify" 

.^lgpTss"ho» 
2|text=\_message\" 

1675 END 

DEFINE "Rem_BCV_Est" 3 

MESSAGE V v/FRlFYCLI C NOT ALL SYNCHRONIZED V'NOT all of 

"symmir <bcv_groupid> CLI_C_VERIFY cli_o_imu _m _ 

1680 the mirrored pairs are in the 'Synchronized \ # 5 „*_ 6 .* 7 _*_ 8 _*-9-— *-1 0-*1 V12*13-*- 

/*„1„.* 2 * 3 4 

14 */\ 
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" state.Y"' 
/**.„15„.*/ 
1685 TYPE ANY-SENDER OTHER 
PRIORITY 128 

TDKFN KEYWORD 3 "CLI C VERIFY 
TOKf N FIXED 4 "CLI C_N~OT_ALL_SYNCHRONIZED 
TOKEN FIXED 14 "'SYNCHRONIZED'" 
1690 CONSTRAINT _HOSTID = "\symrr LhostV 
CONSTRAINT ?RemEstSent:_TOKEN2 

f. A FoMoops (i.e. commands that use the WATT clause), use WAIT to send a message 
'acton wa™TIeconds COMMAND "PROCESS PRIORITY COMMAND: symmir -8 

• 1700 \_TOKEN2\-bcv-rdf verify" 

i 3|TEXT=\_MESSAGE\" 

* END 



1695 



1705 



W ^.groupid, are in the 'Synchronized or Restored' 



St ; te " _ 1 .*__. 2 ~*3-*--4--* 5 *-6-*7-*-8-*--9--*10*-11--*»12--*/ 

1710 TYPE ANY-SENDER OTHER 
PRIORITY 128 
TOKEN KEYWORD 1 "ALL" 
TOKEN FIXED 2 "DEVICES" 
TOKEN FIXED 9 '"SYNCHRONIZED" 
1715 TOKEN FIXED 10 "OR" 

TOKEN FIXED 11 "RESTORED"' 
CONSTRAINT _HOSTID = "\symm_host\ 
CONSTRAINT ?RemEstSent:_TOKEN5 
DESTROY RemEstSent:_TOKEN5 
1720 SET bcv_groupid = "\_TOKEN5 {'} IN- 
ACTION EVENT-REPORT \ 

"TYPE=CO|CLASS=2200 Host|.NSTANCE=\RCJn_Progress:bcv_groupid\|COMMAND=RC 
LAST = Rernote_BCV_AILSynchronized_\bcv_group.d\ 

1725 .^pHcfc^ 

MESSAGEV 
1730 MESSAGEV 
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=\ MESSAGEV 
DESTROY RemEstSent:bcv_groupid 
1735 CREATE RemSplitSent:bcv_groupid 

o5t» ™ * e WAIT dause) ' use WA ' T t0 SSnd 3 meSSa9e 

W^?s!^DS COMMAND "PROCESS PRIORITY COMMAND: symmir -g 
1 740 \bcv_groupid\ -bcv -rdf -noprompt split" 
ACTION EVENT-REPORT \ 

"TYPE=CO|CLASS=2200 Host|INSTANCE=\RCJn_Progress:bcv_groupid\|COMMAND=RC 
LAST = Remote_BCV_Split_Sent_\bcv_groupid\" 

1745 .SeS 

ACTION WAIT 1 SECONDS EVENT-REPORT \ 

•.TYPE=AC|CLASS=\bc V _grou P id\_RL|INSTANCE=Vbcv_groupid\|Status=ye..ow|Message=\_ 
1750 MESSAGEV 

4|TEXT=\_MESSAGE\" 
END 

1755 

/* Patterns for group "RemSplitSent" */ 

% DEFINE "RemSplitSent" 1 SUCCESS VCLI call completed 

k MESSAGE "symmir <bcv_groupid> CLI_C_SPLI I uli_u_ouu^ 

1 1760 successfully A"" , a-*— -7— * 8 */ 

; J* „<|„-* 2 3 4 0 — ° 

TYPE ANY-SENDER OTHER 

PRIORITY 128 

TOKEN KEYWORD 3 "CLI_C_SPLIT 
1765 TOKEN FIXED 4 "CLI_C_SUCCESS" 

TOKEN FIXED 5 "VCLI" 

TOKEN FIXED 8 "SUCCESSFULLY.V" 

CONSTRAINT _HOSTID = "\symm_hostV 

CONSTRAINT ?RemSplitSent:_TOKEN2 
1770 SET bcv_groupid = "\_TOKEN2\" 

ACTION EVENT-REPORT \ 

"TYPE=CO|CLASS=2200 Host|INSTANCE=\RCJn_Progress:bcv_groupid\|COMMAND=RC 
LAST = Remote_BCV_Split_ln_Progress_" \ 
1775 A CTof&REPORT-TYP E =DE|CLASS=UOKEN2\.RMINSTANCE=X.TOK EN 2r 
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1780 S IeT E cmd = "symmir -g \_TOKEN2\ -bcv -rdf -split verify" 

r SE add = an XC und d e7score character to the end of the command and place it on the queue: V 
CREATE Priority_Queue:x 
IF !Command_Lock&!PAUSEIO_Lock 
1785 IF ?Flash_Queue:_ALL>0 

SET cmd = "\Flash_Queue:_ALL {J -1\ 
IF \cmd[1,2]\ = " " 
SET cmd = "\cmd " " -1\" 
ENDIF 

1790 SET x = "\cmd\_" 

DESTROY Flash_Queue:x 

SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ELSEIF ?lmmediate_Queue:_ALL > 0 
3 1795 SET cmd = "\lmmediate_Queue:_ALL {_} 
? IF \cmd[1 ,2]\ = " 

y SET cmd = "\cmd " " 

fj ENDIF 
¥. SET x = "\cmd\_" 

If 1800 DESTROY lmmediate_Queue:x 

- SET Command_Lock = 1 

$ ACTION COMMAND "\cmdV 

ELSEIF ?Priority_Queue:_ALL > 0 
3 SET cmd = "\Priority_Queue:_ALL {_} -1\" 

- 1805 IF \cmd[1,2]\= " 

SET cmd = "\cmd""-1\" 
W ENDIF 
0 SET x = "\cmd\_" 

DESTROY Priority_Queue:x 
1810 SET Command_Lock = 1 

ACTION COMMAND "\cmd\" 
ELSEIF ?Routine_Queue:_ALL > 0 
SET cmd = "\Routine_Queue:_ALL {J " 1V ' 
IF \cmd[1 ,2]\ = " 
1815 SET cmd = "\cmd " " 

ENDIF 

SET x = "\cmd\_" 
DESTROY Routine_Queue:x 
SET Command_Lock = 1 
1820 ACTION COMMAND "\cmd\" 
ENDIF 
ENDIF 
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1825 TEXT=\_MESSAGE\" 
END 

DEFINE "RemSplitSent" 2 verify CLI C NONE SPLIT V'NONE of the 

MESSAGE ,, symmir<bcv_groupid> j CLI_C_VEKii-Y oLi_u_iNuiNc_or 

1830 mirrored pairs are in the 'Split' state.V'" ^ „* R _*_7.*.„8-~*--9«*10-*1 1*12-*»13™ 

I* ^ * 2 * 3 — — ^ ^ 

*..-14— */ 

TYPE ANY-SENDER OTHER 

PRIORITY 128 
1835 TOKEN KEYWORD 3 "CLI_C_VERIFY 

TOKEN FIXED 4 "CLI_C_NONE_SPUT" 

TOKEN FIXED 5 "V'NONE" 

TOKEN FIXED 13 "'SPLIT'" 

CONSTRAINT _HOSTID = "\symm_host\ 
1840 CONSTRAINT ?RemSplitSent:_TOKEN2 

1845 rTo?toops (i.e. commands that use the WAIT clause), use WAIT to send a message 

TcTION WAItTsECONDS COMMAND "PROCESS PRIORITY COMMAND: symmir -g 
\_TOKEN2\ -bcv -rdf -split verify" 

1850 .^opii^ 

TEXT=\_MESSAGE\" 
END 

1855 DEFINE "RemSplitSent" 3 wfrifYCLI C NOT ALL SPLIT VNOT all of 

MESSAGE "symrdf <bcv_groupid> CLI_C_VERlhY uli_u_imu i _ 

the mirrored pairs are in the 'Split' state.V'" * fi * 7 * a *— 9— -*-10--*1 1-*12*13-*~ 

/* „1_ * 2 * 3 4 o- -D- '" "° * 

-|4___* — 15 — */ 
1860 TYPE ANY-SENDER OTHER 
PRIORITY 128 

TOKEN KEYWORD 3 "CLI_C_VERIFY" 
TOKEN FIXED 4 "CLI_C_NOT_ALL_SPLIT 
TOKEN FIXED 5 "VNOT" 
1865 TOKEN FIXED 9 "MIRRORED" 
TOKEN FIXED 14 '"SPLIT- 
CONSTRAINT _HOSTID = "\symm_host\ 
CONSTRAINT ?RemSplitSent:_TOKEN2 

1870 ACTIO^^^NT-ReVoRT^TYPE=DE|CIASS=\_TOKEN2\_RL|INST^ 
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Sops (I.e. commands mat use *e WAIT Causa), use WAIT to send a message 
1875 TctON WA^TIkONDS COMMAND "PROCESS PRIORITY COMMAND: symmir -g 
\_TOKEN2\ -bcv -rdf -split verify" 

.^°LGPL%S=H0^ 

1880 TEXT=\_M ESS AG E\" 
END 

/* Patterns for group "RemSplitDone" */ 

1885 'Sg^w^^rrxV'*'-' 

I* .1-*— 2— *3-*--4~* 5 *-6- 7- -8- —9— ™ / 

TYPE ANY-SENDER OTHER 
t PRIORITY 128 

% 1890 TOKEN KEYWORD 1 "ALL 
% TOKEN FIXED 2 "DEVICES" 

zl TOKEN FIXED 4 "GROUP" 

al TOKEN FIXED 8 "THE" 

% TOKEN FIXED 9 '"SPLIT"' 

% 1895 CONSTRAINT _HOSTID = "\symrn host\ 

CONSTRAINT ?RemSplitSent:_TOKEN5 
- DESTROY RemSplitSent:_TOKEN5 

% SET bcv_groupid = "\_TOKEN5 {} 1\" 

f: ACTION EVENT-REPORT \ 

5 1900 „ TYPE -CO|CLASS=2200 H 0 st|.NSTANCE=\RCJn_Progress:bcv_groupid\|COMMAND=RC 
^ LAST = Remote_BCV_AII_Split_\bcv_groupid\" 

1905 MESSAGEV 

•^AcfSS 
MESSAGEV 

ScfSS 

=\ MESSAGEV 
DESTROY RemSplitSent:bcv_groupid 

ACTION EVENT-REPORT \ 

.TYPE=CO|CUSS=2200 Hos.|,NSTANCE=VRCJn.Prog re ss:bcv.groupid^COMMAND= R E 

M SX°fsiciN*D S To^ND ■■CLEANUPM.cv.groupldV. 
ACTION EVENT-REPORT \ 
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1915 



1920 



»TYPE=AL|CLASS=Host|INSTANCE=\RCJn_Progress:bc V _groupid\|APPL=RemoteCopy|S 

EV=lnformational|ALARMID=RC_Complete|" \ 

"ALARMQUALUbcv_groupid\ARCJn_Progress:bcv group^A DT { 

2\|HELP=RemoteCopy/RC_Complete|TEXT=Remote Copy <comple e \ 

"for disk group \bcv_groupid\ on node \RC_ln_Progress:bcv_group.d\ 

1925 DESTROY RC_ln_Progress:bcv_groupid 

|TEXT=\_MESSAGE\" 
END 

/* Patterns for group "RC_Comp" */ 



1930 



1945 



1950 



1960 



DEFINE "RC Comp" 1 _,. , 

MESSAGE ~\*30\REMOTE COPY COMPLETED <diskgroup= 
/* 1 *-2»* 3 * 4 */ 



1935 /* 

TYPE ANY-SENDER OTHER 

PRIORITY 128 

TOKEN KEYWORD 2 "COPY" 
TOKEN MASKED 3 "COMPLETED" 
1940 TOKEN MASKED 1 T30\REMOTE" 

CONSTRAINT _HOSTID = \symm_host\ 

OTE COPY COMPLETE \_TOKEN4V 
ACTION COMMAND "CLEAN UP \_NEGTOKEN1V 
ACTION EVENT-REPORT \ 

"TYPE=AL|CLASS=H 0 st|INSTANCE=\RCJn_Progress:_TOKEN4\|APPL=RemoteCopy|SEV 

=lnformational|ALARMID=RC_Complete|" \ DT „ 

"ALARMQUAL=\ TOKEN4\ARC ln_Progress:_TOKEN4\A_D1 {) 

2 \|HE^P=RemoteCo^ for disk X 

"group \_TOKEN4\ on node \RC_ln_Progress:_TOKEN4\ 
DESTROY RC_ln_Progress:_TOKEN4 

1955 

XT=\_MESSAGE\" 
END 



/* Patterns for group "CleanUp" */ 

DEFINE "Cleanup" 1 
MESSAGE "\*30\CLEAN UP <diskgroup> [FAIL] 
/* „„1 *2-* 3 *--4— */ 



TYPE ANY-SENDER OTHER VARIABLE-LENGTH 

1965 PRIORITY 128 

TOKEN KEYWORD 2 "UP" 
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TOKEN MASKED 1 "\*30\CLEAN" 
CONSTRAINT _HOSTID = \symm_host\ 
SET x="\_TOKEN3\" 
1970 SET y = "\TOKEN3Y" 

DESTROY RC_ln_Progress:x 
DESTROY RemVerifySplit:x 
DESTROY LocVerifyEst.x 
DESTROY LocSplitSentx 
1975 DESTROY RDF_ln_Progress:x 
DESTROY RDFSplitSent.x 
DESTROY LocEstSent.x 
DESTROY RemEstSentx 
DESTROY RemSplitSentx 
1980 DESTROY RCJn_Progress:y 
DESTROY RemVerifySplity 
DESTROY LocVerifyEsty 
DESTROY LocSplitSenty 
DESTROY RDF_ln_Progress:y 
$ 1985 DESTROY RDFSplitSent.y 
W DESTROY LocEstSenty 

W DESTROY RemEstSenty 

59 DESTROY RemSplitSenty 

W ACTION COMMAND "CHECK VARS" 

S 1990 ' ACTloN E WArr 3 30 SECONDS EVENT-REPORT 

"^Se|CLASS=\ TOKEN3\ M2|INSTANCE=\_TOKEN3V 

ACTION WAIT 30" SECONDS EVENT-REPORT 
"T^^E|CLASS=\ TOKEN3\_LL|INSTANCE=\_TOKEN3\ 

ACTION WAIT 30~ SECONDS EVENT-REPORT 
•^Se|C^SS=\ TOKEN3\_LBCV|.NSTANCE=\_TOKEN3V- 
ACTION WAIT 30" SECONDS EVENT-REPORT 

ACTION WAIT 30" SECONDS EVENT-REPORT 
2000 «TY^E|CLASS=\.TOKEN3\_R2|INSTANCE^ TOKEN* 
ACTION WAIT 30 SECONDS EVENT-REPORT 
«TYP^E=DEICLASS=\TOKEN3\_RL|INSTANCE=\_TOKEN3\" 

ACTION WAIT 30" SECONDS EVENT-REPORT 
2005 ENDIF 

T=\_MESSAGE\" 
END 



AX** 



•S36T 

in 



1995 



2010 



DEFINE "Cleanup" 2 
MESSAGE "RESET LOCK\*1\ <lock_name>|ALL 
TYPE ANY-SENDER OTHER 
PRIORITY 128 
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901 S TOKEN KEYWORD 1 "RESET" 
201 TOKEN MASKED 2 "LOCKV1V 

CONSTRAINT _HOSTID = \symm_host\ 
IF _TOKEN3 = "ALL- 
RESET Command_Lock 
on?n RESET PAUSEIO_Lock 
20 ELSEIF _TOKEN3 = "COMMAND- 
RESET Command_Lock 
ELSEIF _TOKEN3 = "PAUSEIO" 
RESET PAUSEIO_Lock 
2025 ENDIF 

T=\_MESSAGE\" 
END 

2030 r Patterns for group "CheckVars" */ 

5 DEFINE "CheckVars" 1 

§ MESSAGE T30\CHECKVARS" 

U1 9ftlS /* — 1 *-2-*l 

m TYPE ANY-SENDER OTHER 



2040 



2045 



PRIORITY 128 

TOKEN KEYWORD 2 "VARS" 
TOKEN MASKED 1 «V30\CHECK" 
CONSTRAINT _HOSTID = \symm_host\ 
ACTION EVENT-REPORT \ 

. WE = LG ,CUSS=Hos t | l NSTANCE^WPPt=SPO,APPLQUAL<DB N AMB,TEX 

T=Var bcv_groupid: +\bcv_groupid\+ 
ACTION EVENT-REPORT \ 

"TYPE := LG|CLASS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL= : \_DBNAME\lTEX 

T=Var cmd: +\cmd\+" 
ACTION EVENT-REPORT \ 
2050 "TYPE=LG|CLASS = Host|INSTANCE=\LogName\|APPL := SPO|APPLQUAL=\_DBNAME\lTEX 

T=Var Command_Lock: "\ 
"+\Command_Lock\+" 
ACTION EVENT-REPORT \ 
2055 1TYP E= L G|CLASS=H0S,|,NSTANCE=XLo gN a m ^PPL=SPO,APPLQUAL^DBNA M B,TEX 

T=Var PAUSEIO_Lock: "\ 
"+\PAUSEIO_Lock\+" 
ACTION EVENT-REPORT \ 
2060 .TVP^GpLASS^OstllNSTANCE^ogNa^APPU^SPOIAPPLQUAL^DBNAME^TEX 

T=Group Flash_Queue: " \ 



"+\Flash_Queue:_ALL\+" 
ACTION EVENT-REPORT \ 
2065 "TYPE=LG|CLASS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Group lmmediate_Queue: " \ 
"+\lmmediate_Queue:_ALL\+" 
ACTION EVENT-REPORT \ 
2070 'TYPE= : LG|CLASS=Host|INSTANCE=\LogName\lAPPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Group Priority_Queue: " \ 
"+\Priority_Queue:_ALL\+" 
ACTION EVENT-REPORT \ 
2075 'Ty'PE=LG|Cl-ASS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Group Routine_Queue: " \ 
"+\Routine_Queue:_ALL\+" 
ACTION EVENT-REPORT \ 
2080 ' , TYPE=LG|CLASS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Group GroupNode: +\GroupNode:_ALL\+ 
ACTION EVENT-REPORT \ 
I 20 85 , 'TYPE=LG|CU^SS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

1 T=Var IX_pass: + \IX_pass\ + " 

l ACTION EVENT-REPORT \ 

"TYPE=LG|CLASS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

1 2090 T=Var IX_stop_diskio: +\IX_stop_diskio\+" 
fe ACTION EVENT-REPORT \ 

I "TYPE=LG|CLASS=Host|INSTANCE=\LogName\lAPPL=SPO|APPLQUAL = \_DBNAME\|TEX 

fc T=Var LogName: +\LogName\+" 

2095 ACTION EVENT-REPORT \ 

''TYPE=LG|CU^SS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Var node: +\node\+" 
ACTION EVENT-REPORT V 
2100 'TYPE=LG|Cl-ASS=Host|lNSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Var symm.host: +\symm_host\+" 
ACTION EVENT-REPORT \ 

.TYPE=LGlClASS=Hos,|, N STANCE^ogNam^PPL=SPO|APPLQUAL=V.DBNAME^TEX 

T=Group RemVerifySplit: " \ 
"+\RemVerifySplit:_ALL\+" 
ACTION EVENT-REPORT \ 



2105 
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2110 "TYPE=LG|CLASS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Group LocVerifyEst: " \ 
"+\LocVerifyEst:_ALL\+" 
ACTION EVENT-REPORT \ 
2115 "TYPE=LG|CLASS=Host[INSTANCE= : \LogName\lAPPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Group LocSplitSent: " \ 
"+\LocSplitSent:_ALL\+" 
ACTION EVENT-REPORT \ 
2120 "TYPE=LG|CIJ\SS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Group RDF_ln_Progress: " \ 
"+\RDF_ln_Progress:_ALL\+" 
ACTION EVENT-REPORT \ 
2125 'Ty , PE=LG|CLASS s Host[lNSTANCE = \LogName\lAPPL=SPO|APPLQUAL=\_DBNAME\!TEX 

i T=Group RDFSplitSent: "\ 
J "+\RDFSplitSent:_ALL\+" 

i ACTION EVENT-REPORT \ 

1 2 ,30 "jYPE=LG|CLASS=Host|JNSTANCE=\LogNaine\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

1J T=Group LocEstSent: " \ 
ft "+\LocEstSent:_ALL\+" 

3J ACTION EVENT-REPORT \ 

» 2 135 ''TYPE=LG|CLASS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

Jl T=Group RemEstSent: " \ 
•* "+\RemEstSent:_ALL\+" 

Jl ACTION EVENT-REPORT \ 

3 2140 "TYPE=LG|CIJVSS=Host|INSTANCE=\LogName\|APPL=SPO|APPLQUAL=\_DBNAME\|TEX 

T=Group RemSplitSent: " \ 
"+\RemSplitSent:_ALL\+" 
ACTION EVENT-REPORT \ 
2,45 'TYPE=LG|CLASS=HostllNSTANCE=\LogName\|APPL=SPO]APPLQUAL=\_DBNAME\|TEX 

T=Group RC_ln_Progress: " \ 
"+\RC_ln_Progress:_ALL\+" 

2150 XT=\_MESSAGE\" 
END 

/* Patterns for group "login" */ 

2155 DEFINE "login" 1 

MESSAGE "login: (other stuff maybe) 
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I* „1— *-2— *-3-*-4— */ 
TYPE ANY-SENDER OTHER VARIABLE-LENGTH 
PRIORITY 128 
2160 TOKEN KEYWORD 1 "LOGIN:" 

CONSTRAINT _HOSTID = "\symm_host\ M 
ACTION COMMAND "login" 

"WP^^^^^ 
2165 MESSAGEV 
END 

„ DEFINE "login" 2 

MESSAGE "password:" 

2170 I* */ 

TYPE ANY-SENDER OTHER 

PRIORITY 127 

TOKEN KEYWORD 1 "PASSWORD:" 
t CONSTRAINT _HOSTID = "\symm_host\" 

^ 7175 ACTION PASSWORD "password" 

I ACTION COMMAND WAIT 1 SECONDS "prompt $N:\\$G$_" 

"T^G^ 
% MESSAGEV 
?: 2180 END 
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